ARKA PLANA DEGRADE ATMAK
HEMEN hemen tⁿm bⁿyⁿk programlar²n kurulum arka planlar²nda maviden siyaha geτi■ vard²r. VB'nin uygulamalar iτin olu■turdu≡u kurulumlarda da bunu g÷rmek mⁿmkⁿndⁿr. Peki nas²l oluyor da oluyor, form ⁿzerine degrade nas²l at²l²yor? A■a≡²daki kⁿτⁿk alt yordam² kullanarak bunu siz de kolayca gerτekle■tirebilirsiniz.
Sub Gradient(TheObject As Object, Redval&, Greenval&,_
Blueval&, TopToBottom As Boolean)
Dim Step%, Reps%, FillTop%, FillLeft%, FillRight%, FillBottom%, HColor$
Step = (TheObject.Height / 63)
If TopToBottom = True Then FillTop = 0 Else FillTop = TheObject.Height - Step
FillLeft = 0
FillRight = TheObject.Width
FillBottom = FillTop + Step
For Reps = 1 To 63
TheObject.Line (FillLeft, FillTop)-(FillRight, FillBottom),_
RGB(Redval, Greenval, Blueval), BF
Redval = Redval - 4
Greenval = Greenval - 4
Blueval = Blueval - 4
If Redval <= 0 Then Redval = 0
If Greenval <= 0 Then Greenval = 0
If Blueval <= 0 Then Blueval = 0
If TopToBottom = True Then FillTop = FillBottom Else FillTop = FillTop - Step
FillBottom = FillTop + Step
Next
End Sub
╓rne≡in mavi renkte, yukar²dan a■a≡²ya bir degrade iτin
Gradient Me, 0, 0, 255, 1
komutunu kullanabilirsiniz. 1 de≡eri yerine 0 yazd²≡²n²zda ise degradenin s²ras²n² de≡i■ecektir.